home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / -commercial- / ics / install-ics < prev    next >
Text File  |  1999-04-24  |  14KB  |  529 lines
  1. ; $VER: ICS 1.01 (17.04.99)
  2. ; Copyright (C)1999 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set icsvernew 2)  ; Set to the version/revision of this ICS software!!!
  8. (set icsrevnew 1)
  9.  
  10. ;**** English text
  11. ;-------
  12. (set #welcome-pirate
  13. (cat "\nWelcome to the ICS for Scanners.\n\n"
  14.     "ICS is Copyright (C)1999 by Wolf Faust\n\n"
  15. ))
  16. ;-------
  17. (set #waitmsg
  18. (cat "\n\n\n\nWorking. Please wait..."
  19. ))
  20. (set #register
  21. (cat "\nPlease remember:\nYou can use ICS for free as long as you return the registration form within 48 hours after installing ICS\n"
  22. ))
  23. ;-------
  24. (set #bad-kick
  25. (cat    "\nYour system software is very old. "
  26.     "You must use at least Kickstart 2.04 for all ICS programs."
  27. ))
  28. ;--------------
  29. (set #foundicsver
  30. (cat "\nI found an exisiting ICS installation\n(Library Ver. %ld Rev. %ld).\nPlease select the type of action you want to perform:\n"
  31. ))
  32. (set #foundics
  33. (cat "I found an exisiting ICS installation. Please select the type of action you want to perform:"
  34. ))
  35. (set #foundicshelp
  36. (cat "When selecting update, the ICS software will be updated in the ICS: location found.\n\n"
  37.     "When selecting complete installation, you will continue to do a complete ICS installation.\n\n"
  38.     @askoptions-help
  39. ))
  40. (set #foundics-choices0
  41. (cat "Remove ICS from your system"
  42. ))
  43. (set #foundics-choices1
  44. (cat "Update existing ICS software"
  45. ))
  46. (set #foundics-choices2
  47. (cat "Do a complete new ICS installation"
  48. ))
  49.  
  50. (set #yes
  51. (cat "YES"
  52. ))
  53. (set #yesupdate
  54. (cat "Yes, overwrite"
  55. ))
  56. (set #nodrawer
  57. (cat "No, continue"
  58. ))
  59. ;--------------
  60. (set #ask-ics
  61. (cat "Select the disk or drawer the 'ICS' application drawer should be created in?"
  62. ))
  63. (set #ask-ics-help
  64. (cat "\nThis section lets you choose in which drawer or on which disk the "
  65.     "ICS programs should be installed. "
  66.     "The program can be installed to any disk/drawer you like. "
  67.     "The selected disk should have at least 3 MByte free space.\n\n"
  68.     @askdir-help
  69. ))
  70. ;--------------
  71. (set #abortunpack
  72. (cat "\nError occured while running the installation decompression program. "
  73.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  74. ))
  75. ;--------------
  76. (set #cputype
  77. (cat "\nPlease select for what type of CPU/FPU hardware ICS should be installed for.\n"
  78. ))
  79. (set #cputype-help
  80. (cat "\nICS was written for various CPU's (Central Processor Unit) supported by the Amiga OS. "
  81.     "For instance, if you own a normal Amiga 4000 choose the 68040 FPU ICS library (FPU=Floating Point Unit).\n"
  82.     "Older Amigas like the A500, A600, A1000, A2000 were build with the 68000 CPU.\n"
  83.     "The Amiga 1200 has a 68020 CPU (no FPU!).\n"
  84.     "The Amiga 3000(T) has a 68030 with FPU\n"
  85.     "If your Amiga has accelerator board fitted, please choose the correct "
  86.     "library.\n\nThere can be major speed differences between different versions of the library!!!\n"
  87.     "Note: the 68000 version works with all Amigas but is the slowest.\n\n"
  88.     @askoptions-help
  89. ))
  90. ;--------------
  91. (set #userstartup
  92. (cat "Can I add/remove an ICS: and ICS_Profiles: assign to/from your startup sequence?" 
  93. ))
  94. ;--------------
  95. (set #foundnewerics
  96. (cat "A newer ICS library V%ld.%ld is already installed on your system. Shall I install the V%ld.%ld library? Select NO to use the already installed library.\n"
  97. ))
  98. (set #foundnewhelp
  99. (cat "When selecting yes, the ICS library stored in LIBS: will be overwritten.\n\n"
  100.     "When selecting no, the ICS programs will be installed and use the existing library.\n\n"
  101. ))
  102. ;--------------
  103. (set #icsremoved
  104. (cat "\nICS was removed from your system.\nYou may now delete the ICS drawer from your system.\n"
  105. ))
  106.  
  107.  
  108. ;*** German
  109. (if (= @language "deutsch")
  110. (
  111.     (set #welcome-pirate
  112.     (cat "\nWillkommen zur Installation der ICS Software!\n\n"
  113.         "Copyright (C)1999 Wolf Faust\n\n"
  114.     ))
  115.     ;-------
  116.     (set #waitmsg
  117.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  118.     ))
  119.     ;-------
  120.     (set #register
  121.     (cat "\nNicht vergessen:\nSie können ICS kostenlos benutzen, solange Sie binnen 48 Stunden nach der Installation die Software kostenlos registrieren."
  122.     ))
  123.     ;-------
  124.     (set #bad-kick
  125.     (cat    "\nIhre System-Software ist sehr alt. "
  126.         "Sie brauchen mindestens Kickstart 2.04 für alle ICS-Programme."
  127.     ))
  128.     ;--------------
  129.     (set #foundicsver
  130.     (cat "\nIch habe eine installierte ICS Software gefunden\n(Library Ver. %ld Rev. %ld).\nBitte wählen Sie eine gewünschte Aktion:\n"
  131.     ))
  132.     (set #foundics
  133.     (cat "\nIch habe eine installierte ICS Software gefunden. Bitte wählen Sie eine gewünschte Aktion:\n"
  134.     ))
  135.     (set #foundicshelp
  136.     (cat "Wählen Sie entfernen, und die ICS Library sowie Assigns in S:User-Startup werden entfernt.\n\n"
  137.         "Wählen Sie erneuern, dann wird die ICS Software in der ICS: Schublade upgedated.\n\n"
  138.         "Wählen Sie komplette Installation, können Sie mit der normalen ICS Installation fortfahren.\n\n"
  139.         @askoptions-help
  140.     ))
  141.     (set #foundics-choices0
  142.     (cat "ICS aus dem System entfernen"
  143.     ))
  144.     (set #foundics-choices1
  145.     (cat "Vorhandene ICS Software erneuern"
  146.     ))
  147.     (set #foundics-choices2
  148.     (cat "ICS komplett neu installieren"
  149.     ))
  150.     (set #yes
  151.     (cat "JA"
  152.     ))
  153.     (set #yesupdate
  154.     (cat "Ja, überschreiben"
  155.     ))
  156.     (set #nodrawer
  157.     (cat "Nein, weiter"
  158.     ))
  159.     ;--------------
  160.     (set #ask-ics
  161.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das ICS-Verzeichnis angelegt werden soll."
  162.     ))
  163.     (set #ask-ics-help
  164.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  165.         "Schublade die ICS-Schublade mit den Programmen kopiert werden soll. Normalerweise sollten "
  166.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  167.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 3 MByte "
  168.         "an freien Speicherplatz besitzen.\n\n"
  169.         @askdir-help
  170.     ))
  171.     ;--------------
  172.     (set #abortunpack
  173.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  174.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  175.     ))
  176.     ;--------------
  177.     (set #cputype
  178.     (cat "\nBitte wählen Sie, für welchen Prozessor ICS installiert werden soll.\n"
  179.     ))
  180.     (set #cputype-help
  181.     (cat "\nICS wurde für verschiedene Prozessoren erstellt. Bitte wählen Sie den Prozessor (CPU) "
  182.         "und falls vorhanden, die Fließkomma-Einheit (FPU) Ihrer Hardware. "
  183.         "Sollten Sie Ihren Amiga nicht mit einem schnelleren Prozessor erweitert haben, "
  184.         "finden Sie folgende Prozessoren in Ihren Amiga:\n"
  185.         "Amiga 500, 600, 1200, 2000:  CPU 68000\n"
  186.         "Amiga 1200:     CPU 68020 ohne FPU\n"
  187.         "Amiga 3000 (T): CPU 68030 mit FPU\n"
  188.         "Amiga 4000:     CPU 68040 mit FPU\n\n"
  189.         "Die ICS Geschwindigkeitsunterschiede können zwischen den verschiedenen CPU Versionen enorm sein.\n\n"
  190.         @askoptions-help
  191.     ))
  192.     ;--------------
  193.     (set #userstartup
  194.     (cat "Kann ich einen ICS: und ICS_Profiles: Verweis in Ihrer User-Startup-Sequenz hinzufügen oder löschen?" 
  195.     ))
  196.     ;--------------
  197.     (set #foundnewerics
  198.     (cat "Eine neuere Version %ld.%ld der 'ics.ibrary' ist bereits auf Ihrem System installiert.\nSoll ich trotzdem die Version %ld.%ld der Library installieren?\nWählen Sie Nein um die vorhandene Library zu benutzen.\n"
  199.     ))
  200.     (set #foundnewhelp
  201.     (cat "Wählen Sie ja, dann wird die 'ics.library' in der LIBS: Schublade mit einer älteren Version überschrieben.\n\n"
  202.         "Wählen Sie Nein, werden die ICS Programme installiert, wobei die schon installierte 'ics.library' benutzt wird.\n\n"
  203.     ))
  204.     ;--------------
  205.     (set #icsremoved
  206.     (cat "\nICS wurde von Ihrem System entfernt.\nSie können jetzt die ICS Schublade löschen.\n"
  207.     ))
  208. ))
  209.  
  210. (procedure Meter
  211. (
  212.     (set accum    (+ accum addmeter))
  213.     (complete (/ (* accum 100) total))
  214. ))
  215.  
  216. (complete 0)
  217. ; (message #welcome-pirate)
  218. (working #waitmsg)
  219. (set @default-dest "")
  220.  
  221. (set total        100)
  222. (set accum        0)
  223. (set addmeter        0)
  224. (set firstdisk "")
  225. (set studiodefault "Default_Setting")
  226. ; **** sure we are running under a 2.04 or higher ROM???
  227. (if (< (/ (getversion) 65536) 37)
  228.     (abort #bad-kick)
  229. )
  230.  
  231. (set icsvervalid 0)
  232. (set icsver 0)
  233. (set icsrev 0)
  234. (if (= (exists "LIBS:ics.library") 1)
  235. (
  236.     (set vernum (getversion "LIBS:ics.library"))
  237.     (set icsver (/ vernum 65536))
  238.     (set icsrev (- vernum (* icsver 65536) ) )
  239.     (if (OR (<> icsver 0) (<> icsrev 0))
  240.     (
  241.         (set icsvervalid 1)
  242.     ))
  243. ))
  244. (set addmeter    10)
  245. (Meter)
  246. (set guessdrawer "")
  247. (if (= guessdrawer "")
  248. (
  249.     (set guessdrawer (getassign "WORK" "d"))
  250.     (if (= guessdrawer "")
  251.     (
  252.         (set guessdrawer (getassign "DH0" "d"))
  253.         (if (= guessdrawer "")
  254.         (
  255.             (set guessdrawer (getassign "DH2" "d"))
  256.             (if (= guessdrawer "")
  257.             (
  258.                 (set guessdrawer "SYS:")
  259.             ))
  260.         ))
  261.     ))
  262. ))
  263.  
  264. (set inschoice 2)
  265. (set icsassign "")
  266. (set proassign "")
  267. (set icsguessdrawer (getassign "ICS" "a"))
  268. (if (<> icsguessdrawer "")
  269. (
  270.     (set proguessdrawer (getassign "ICS_Profiles" "a"))
  271.     (if (<> proguessdrawer "")
  272.     (
  273.         (set icsassign "ICS:/")
  274.         (set proassign "ICS_Profiles:/")
  275.         (set icspath (expandpath "ICS:"))
  276.         (set propath (expandpath "ICS_Profiles:"))
  277.  
  278.         (if (<> icsvervalid 0)
  279.         (
  280.             (set inschoice (askchoice (prompt (#foundicsver icsver icsrev))
  281.                 (help #foundicshelp)
  282.                 (choices #foundics-choices0 #foundics-choices1 #foundics-choices2)
  283.                 (default 1)
  284.                 )
  285.             )
  286.         )
  287.         (
  288.             (set inschoice (askchoice (prompt #foundics)
  289.                 (help #foundicshelp)
  290.                 (choices #foundics-choices0 #foundics-choices1 #foundics-choices2)
  291.                 (default 1)
  292.                 )
  293.             )
  294.         ))
  295.     ))
  296. ))
  297. (working #waitmsg)
  298. (set addmeter    10)
  299. (Meter)
  300.  
  301. (if (= inschoice 0)
  302. (
  303.     (set n 0)
  304.     (while (set thisfile (select n  "LIBS:ics.library"
  305.         "ENV:sys/ICSConvert_def_project.info"
  306.         "ENVARC:sys/ICSConvert_def_project.info"
  307.         "ENV:sys/ScanTarget_def_project.info"
  308.         "ENVARC:sys/ScanTarget_def_project.info"
  309.         "ENV:sys/ICS_def_project.info"
  310.         "ENVARC:sys/ICS_def_project.info"
  311.         "LOCALE:catalogs/deutsch/ICS_Library.catalog"
  312.         "LOCALE:catalogs/deutsch/ICS_Convert.catalog"
  313.         "LOCALE:catalogs/deutsch/ICS_ScanTarget.catalog"
  314.         "ENV:ICS.prefs"
  315.         "ENVARC:ICS.prefs"
  316.         "" ))
  317.     (
  318.         (set n (+ n 1))
  319.         (if (exists thisfile)
  320.         (
  321.             (delete thisfile)
  322.         ))
  323.     ))
  324.     (set addmeter    20)
  325.     (makeassign "ICS")
  326.     (makeassign "ICS_Profiles")
  327.     (set addmeter    20)
  328.     (startup "ICS"
  329.         (prompt (#userstartup))
  330.         (help @startup-help)
  331.     )
  332.     (set addmeter    35)
  333.     (message (#icsremoved))
  334.     (exit (quiet))
  335. )
  336. (
  337.     (set asknewver 0)
  338.     (if (<> icsvervalid 0)
  339.     (
  340.         (if (> icsver icsvernew)
  341.         (
  342.             (set asknewver 1)
  343.         )
  344.         (
  345.             (if (= icsver icsvernew)
  346.             (
  347.                 (if (> icsrev icsrevnew)
  348.                 (
  349.                     (set asknewver 1)
  350.                 ))
  351.             ))
  352.         ))
  353.         (if (<> asknewver 0)
  354.         (
  355.             (if (askbool (prompt (#foundnewerics icsver icsrev icsvernew icsrevnew))
  356.                 (choices #yesupdate #nodrawer)
  357.                 (help (#foundnewhelp ))
  358.                 (default 0))
  359.             (
  360.                 (set asknewver 0)
  361.             ))
  362.         ))
  363.     
  364.     ))
  365.     (set addmeter    10)
  366.     (Meter)
  367.     
  368.     (if (= inschoice 2)
  369.     (
  370.         (set icsassign (askdir (prompt #ask-ics)
  371.             (default guessdrawer)
  372.             (help #ask-ics-help))
  373.         )
  374.         (set proassign (tackon icsassign "ICS"))
  375.         (set icspath proassign) 
  376.         (set propath (tackon proassign "ICS_Profiles"))
  377.         (if (= (exists "ENV:ICS.prefs") 1)
  378.         (
  379.             (delete "ENV:ICS.prefs")
  380.         ))
  381.         (if (= (exists "ENVARC:ICS.prefs") 1)
  382.         (
  383.             (delete "ENVARC:ICS.prefs")
  384.         ))
  385.         (message #register)
  386.     ))
  387.     (working #waitmsg)
  388.     (set addmeter    10)
  389.     (Meter)
  390.     (set deflibtype 0)
  391.     (set CPUStr (database "cpu"))
  392.     (set FPUStr (database "fpu"))
  393.     (if (OR (= CPUStr "68000") (= CPUStr "68010"))
  394.         (set deflibtype    0)
  395.     )
  396.     (if (OR (= CPUStr "68020") (= CPUStr "68030"))
  397.     (
  398.         (set deflibtype    2)
  399.         (if (= FPUStr "NOFPU")
  400.             (set deflibtype    1)
  401.         )
  402.     ))
  403.     (if (OR (= CPUStr "68040") (= CPUStr "68060"))
  404.     (
  405.         (set deflibtype    3)
  406.         (if (= FPUStr "NOFPU")
  407.             (set deflibtype    1)
  408.         )
  409.     ))
  410.     (set libtype  (askchoice (prompt #cputype)
  411.         (help #cputype-help)
  412.         (choices "CPU 68000/10"             ;0
  413.                  "CPU 68020/30/40"          ;1
  414.                  "CPU 68020/30 + FPU"       ;2
  415.                  "CPU 68040/60 + FPU"       ;3
  416.         )
  417.         (default deflibtype)
  418.     ))
  419.     (set libname (select libtype  "Software/lib000.lzh"   ;0
  420.         "Software/lib020.lzh"                         ;1
  421.         "Software/lib030fpu.lzh"                      ;2
  422.         "Software/lib040.lzh"                         ;3
  423.     ))
  424.     
  425.     (set addmeter    10)
  426.     (Meter)
  427.     (working #waitmsg)
  428.     (copyfiles (source "lx")
  429.         (dest "T:")
  430.         (nogauge)
  431.     )
  432.     
  433.     (makeassign "ICSPARENT" icsassign)
  434.     (set exerr (run (cat "T:lx x Software/ics.lzh \"ICSPARENT:\"")))
  435.     (if (> exerr 0)
  436.     (
  437.         (abort (#abortunpack "Software/ics.lzh"))
  438.     ))
  439.     
  440.     (set addmeter    15)
  441.     (Meter)
  442.     (makeassign "PROPARENT" proassign)
  443.     (set exerr (run (cat "T:lx x Software/profiles.lzh \"PROPARENT:\"")))
  444.     (if (> exerr 0)
  445.     (
  446.         (abort (#abortunpack "Software/profiles.lzh"))
  447.     ))
  448.     
  449.     (set addmeter    10)
  450.     (Meter)
  451.     (if (= asknewver 0) ; Are we allowed to install the library?
  452.     (
  453.         (set exerr (run (cat "T:lx x " libname " \"LIBS:\"")))
  454.         (if (> exerr 0)
  455.         (
  456.             (abort (#abortunpack libname))
  457.         ))
  458.     ))
  459.  
  460.     (set addmeter    5)
  461.     (Meter)
  462.     (if (OR (= inschoice 2) (<> (exists "ENVARC:sys/ICSConvert_def_project.info") 1) ) ; Update default icon if not already available....
  463.     (
  464.         (copyfiles (source "Software/ICSConvert_def_project.info")
  465.             (dest "ENVARC:sys")
  466.             (nogauge)
  467.         )
  468.         (copyfiles (source "Software/ICSConvert_def_project.info")
  469.             (dest "ENV:sys")
  470.             (nogauge)
  471.         )
  472.     ))
  473.  
  474.     (set addmeter    5)
  475.     (Meter)
  476.  
  477.     (if (OR (= inschoice 2) (<> (exists "ENVARC:sys/ScanTarget_def_project.info") 1) ) ; Update default icon if not already available....
  478.     (
  479.         (copyfiles (source "Software/ScanTarget_def_project.info")
  480.             (dest "ENVARC:sys")
  481.             (nogauge)
  482.         )
  483.         (copyfiles (source "Software/ScanTarget_def_project.info")
  484.             (dest "ENV:sys")
  485.             (nogauge)
  486.         )
  487.     ))
  488.  
  489.     (copyfiles (source "VER")
  490.         (dest icspath)
  491.         (nogauge)
  492.     )
  493.  
  494.     (set addmeter    10)
  495.     (Meter)
  496.     (startup "ICS"
  497.         (prompt (#userstartup))
  498.         (help @startup-help)
  499.         (command "Assign ICS: \"" icspath "\"\n"
  500.             "Assign ICS_Profiles: \"" propath "\"\n"
  501.                 )
  502.     )
  503.  
  504.     (if (= (exists "LOCALE:catalogs/deutsch") 2)
  505.     (
  506.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_Library.catalog"))
  507.             (dest "LOCALE:catalogs/deutsch")
  508.             (nogauge)
  509.         )
  510.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_Convert.catalog"))
  511.             (dest "LOCALE:catalogs/deutsch")
  512.             (nogauge)
  513.         )
  514.         (copyfiles (source (tackon icspath "catalogs/deutsch/ICS_ScanTarget.catalog"))
  515.             (dest "LOCALE:catalogs/deutsch")
  516.             (nogauge)
  517.         )
  518.     ))
  519.  
  520.     (makeassign "ICS" icspath)
  521.     (makeassign "ICS_Profiles" propath)
  522.     (makeassign "ICSPARENT")
  523.     (makeassign "PROPARENT")
  524.     (delete "t:lx")
  525.     (set @default-dest icspath)
  526. ))
  527.  
  528. (complete 100)
  529.